home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / programs / prog10 < prev    next >
Text File  |  1995-06-29  |  856b  |  35 lines
  1. # a set of xmToggleButtons
  2. xtAppInitialize -class Program
  3.  
  4. xmRowColumn .main managed
  5. xmToggleButton .main.black managed \
  6.         -labelString Black \
  7.         -mnemonic k
  8. xmToggleButton .main.red managed \
  9.         -labelString Red \
  10.         -mnemonic R
  11. xmToggleButton .main.green managed \
  12.         -labelString Green \
  13.         -mnemonic G
  14. xmToggleButton .main.blue managed \
  15.         -labelString Blue \
  16.         -mnemonic B
  17.  
  18. .main.black setValues -set True
  19. .main setValues -radioBehavior True \
  20.                 -radioAlwaysOne True
  21.  
  22. # callbacks for edit menu
  23. .main.black disarmCallback "change_colour black"
  24. .main.red   disarmCallback "change_colour red"
  25. .main.green disarmCallback "change_colour green"
  26. .main.blue  disarmCallback "change_colour blue"
  27.  
  28. proc change_colour {colour} {
  29.     puts stdout "colour selected: $colour"
  30. }
  31.  
  32. . realizeWidget
  33.  
  34. . mainLoop
  35.